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ABSTRACT 


A project  conducted  by  ARINC  Research  Corporation 
to  enhance  the  capabilities  of  computer  program  EAGLE  is 
described.  Results  of  the  task,  performed  for  Aeronautical 
Systems  Division,  are  presented  as  follows:  Volume  I,  proj- 
ect summary;  Volume  II,  EAGLE  program  listing;  and 
Volume  III,  QUICK  program  listing. 
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FOREWORD 


This  three-volume  report  documents  a project  to  enhance  the  capabilities  of  the 
on-line  (interactive)  computer  program  EAGLE,  and  the  development  of  three  new 
computer  programs,  QUICK,  PURGNOW,  and  EST1000.  These  tasks  were  performed 
under  Contract  F33G57-77-D-0029-0012  with  Aeronautical  Systems  Division. 


EAGLE  was  developed  for  ASD  by  ARINC  Research  under  Contract  F33R57-77- 
D-0007,  and  its  basic  features  are  described  in  the  final  report  under  that  contract.  * 
EAGLE  enables  calculation  of  acquisition  costs  for  any  type  of  system,  and  can  readily 
be  used  to  perform  a broad  range  of  other  types  of  calculations.  This  report  on 
EAGLE  enhancement  is  divided  as  follows: 

Volume  I — Enhancement  of  Computer  Program  EAGLE:  Enhancement 
Summary 

Volume  fl  — Enhancement  of  Computer  Program  EAGLE:  EAGLE 
Program  Listing 


Volume  III  — Enhancement  of  Computer  Program  EAGLE:  QUICK  Program 
Listing.  * ■* 
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INTRODUCTION 

I 1 

Ksuiy  in  1978,  a change  was  made  to  the  system  operating  procedure  for  the 
I CPC  fifiOO  data  processing  system  at  Wright- Patterson  Air  Force  Rase.  While  this 

change  increased  computer  speed  and  general  user  capability,  it  also  reduced  the 
memory  available  to  the  intercom  user.  Among  the  programs  affected  was  EAGLE, 
a program  developed  bv  ARINC  Research  Corporation  for  ASP  to  perform  a variety 
of  cost  and  other  types  of  calculations.  Prior  constraints  on  user  memory  had 
necessitated  dividing  EAGLE  into  two  programs,  EAGLE  1 and  EAGLE 2.  The 
CPC  fifiOO  system  procedure  change  further  reducing  user  memory  necessitated  the 
modification  of  EAGLE  into  three  programs,  EAGLE1,  EAGLE2,  and  EAGLES,  as 
described  in  this  report. 

Additionally,  the  new  system  operating  procedure  changed  the  operation  of  the 
system  routine  PERMFIL,  which  is  extensively  used  by  EAGLE.  Re-establishment 
of  the  EAGLE- PERMFIL  interface  was  accomplished  by  ARINC  Research  in  conjunc- 
tion with  computer  system  personnel  at  WPAFB. 

In  response  to  user  requests,  some  further  modifications  were  made  to  EAGLE , 
and  two  new  programs,  PURGNOW  and  EST1000,  were  created.  These  programs  are 
for  file  maintenance  and  cost/schedule  relationship  estimating,  respectively. 

• ' * * * * * * ‘ • • • • * - . ■ • • • , . 

Finally,  three  major  programs,  QUICK1,  QUICK2,  and  QUICK3,  similar  to  the 
EAGLE  programs,  were  created.  These  programs  are  for  use  when  a file  supplies 
the  input.  They  are  preferable  in  this  case  to  the  corresponding  EAGLE  programs 
because  the  QUICK  programs  suppress  the  prompting  requests. 

The  foregoing  activities  are  summarized  in  this  volume.  Volume  II  provides  a 
listing  of  the  three  programs  comprising  EAGLE,  while  Volume  111  provides  a listing 
of  the  three  programs  comprising  QUICK. 


1 


2 

PROGRAM  CHANGES 


In  the  main,  the  revised  EAGLEl  and  EAGLE 2 programs  function  much  the  same 
as  their  predecessors.  EAGLE3  was  created  to  enable  the  user  to  retain  the  capabil— 
ity  of  spreading  the  cost  data.  * The  need  to  spread  the  cost  data  arises  when  funds  are 
to  be  expended  over  several  years  even  though  these  funds  are  initially  calculated  for 
expenditure  in  a single  year. 

Except  for  the  changes  mentioned  in  Section  2. 1,  the  subroutines,  as  described 
in  Reference  1,  remain  unchanged.  As  before,  when  a subroutine  is  not  to  be  included 
in  a program  its  "skeleton"  is  substituted.  This  skeleton  contains  a statement  to  the 
effect  that  the  routine  is  not  included  in  the  program  being  used.  However,  the  sub- 
routines TRANSTO,  TRANS FR,  HELP,  and  INTEPR  have  been  completely  removed 
from  all  EAGLE  programs.  Table  2-1  depicts  the  status  of  all  subroutines  for  each 
EAGLE  program. 

The  purpose  and  application  of  the  QUICK  program  is  discussed  in  Section  2.  2; 
and  two  new  programs  prepared  for  use  in  conjunction  with  the  output  from  EAGLE 
are  described  in  Section  2.3. 

2.  1 CHANGES  TO  EAGLE 
2.  1.  1 General 


The  following  three  major  changes  were  made  to  EAGLE: 

a.  The  user  is  now  given  the  opportunity,  with  the  first  request  made  in  sub- 
routine ESCALAT,  to  request  a detailed  explanation  of  ESCALAT. 

b.  The  user  can  now  input  a title  of  his  choice  for  the  output  data. 

c.  The  output  format  was  changed  to  make  it  more  suitable  for  direct  inclu- 
sion in  reports  and  presentations.  An  example  of  the  new  output  format 
is  shown  in  Figure  2-1. 

In  addition,  changes  were  made  to  accommodate  the  removal  of  routines 
INTEPR,  HELP,  TRANSTO,  and  TRANSFR,  and  to  clarify  some  of  the  request 
statements. 


* A guide  to  the  use  of  EAGLE  is  provided  in  the  Appendix. 
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TABLE  2-1.  ROUTINE  STATUS  FOR  EACH  EAGLE  PROGRAM 


i 

I 


P = Presently  in  indicated  program 
R = Removed  from  indicated  program 
S = Skelton  in  indicated  program 
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***eagi  i ns  i run#** 


L 977  Yin lv  IK)I  I ARS 
(IN  MILLIONS) 

FISCAL  YEARS 


1900 

AIRFRAME 

...1901 

— 

1982 

.1983 

TOTAL 

1 . 900 

PROPULSION 

1 . 656 

1 . 545 

1 . 473 

6.574 

1.000 

SYS/M GMT 

.900 

1.510 

1.302 

4.712 

.950 

NON-REC 

.828 

. 77  2 

.736 

3 . 287 

.100 

DATA 

. 100 

. 100 

. 100 

.400 

. 200 

CAE 

. 176 

. 164 

.157 

.697 

- '•  0.000 
SUBTOTAL < ROW  I TROW 2 ) 

0.000 

0.000 

.0.000.  . 

. r 0..000 

2.900 

AGE 

2 . 556 

3.054 

2 . 775 

11.286 

.000 

TRAINING 

.000 

.000 

.000 

.000 

5.343 

///LOTS/// 

4.657 

4.343 

4.142 

18,485 

.400 

***CHECK*** 

.350 

.327 

.312 

1 . 309 

1.900 

1 . 656 

1.545 

1 .473 

6.574 

2.1.2  Changes  to  Documentation 


In  Section  3.  2. 3.  2 (a)  of  Volume  1 of  the  previously  referenced  AKINC  Research 
Report  (1977-01-1-1033),  the  term 


x—  1 

TT 

k=y 


should  be  replaced  by 


x 

TT 

k=y+l 


2.2  PROGRAM  QUICK 

EAGLE  includes  a procedure  that  records  each  user  response,  and  at  the  end 
of  an  analysis  these  responses  can  be  saved  on  file.  Thus  an  identical  run  can  be 
made  using  the  saved  file  as  input,  eliminating  the  response  to  each  request.  This 
greatly  reduces  the  user’s  time  at  the  terminal.  Further,  the  saved  file  can  be  modi- 
fied, thus  enabling  sensitivity  analyses  to  be  quickly  performed. 

* * ♦ ' -•  • • * • • • - . - • • . , ......  f 

Though  the  user  need  not  respond  to  requests  in  this  method  of  operation,  each 
request  is  printed  over  the  terminal.  This  not  only  takes  time,  but  provides  unwanted* 
printed  copy.  To  eliminate  the  printing  of  these  requests,  three  programs  (QUICK  1, 
QUICK2,  and  QUICK3)  were  created  which  omit  the  request  statements.  Except  for 
the  suppression  of  the  requests,  these  programs  are  equivalent  to  EAGLE1,  EAGLE2, 
and  EAGLE3,  respectively.  Thus  when  using  a file  as  input,  the  user  should  choose 
a version  of  QUICK  as  opposed  to  the  corresponding  version  of  EAGLE. 


2.3  ADDITIONAL  PROGRAMS 

Two  additional  computer  programs  were  prepared  for  use  in  conjunction  with 
output  from  EAGLE.  These  programs  are  described  below. 

2.3.1  PURGNOVV 

This  discussion  of  PURGNOW,  which  was  developed  before  the  CDC  system 
change,  is  included  for  the  sake  of  completeness.  After  the  CDC  system  change  it 
was  preferable  to  remove  the  routines  TRANSTO  and  TRANSFR  in  order  to  reduce 
program  memory  requirements.  With  the  removal  of  TRANSTO  and  TRANSFR, 
PURGNOW  is  no  longer  used. 

When  TRANSTO  and  TRANSFR  were  included  in  EAGLE,  five  cycles  each  of 
files  named  ZQE839C,  ZQEH391I,  and  ZQE839P  would  rapidly  accumulate  in  storage. 
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Four  cycles  of  each  of  these  files,  a total  of  12  files,  had  then  to  be  purged.  This 
was  a time-consuming  procjss.  Thus  the  reason  for  the  creation  of  PURGNOW, 
which  purges  these  12  files  automatically.  A listing  of  PURGNOW  is  displayed  in 
Figure  2-2. 

2.3.2  EST 1000 


For  most  military  systems,  especially  those  in  the  research  and  development 
phase,  there  is  a schedule  of  performance  and  associated  funding  profile.  It  is  often 
required  to  estimate  how  a change  in  funding  profile  would  affect  the  schedule.  Such 
estimates  are  quite  subjective  and  dependent  on  many  program-unique  factors.  How- 
ever, it  is  desirable  that  the  estimates  be  performed  on  a consistent  basis  and  that 
it  consume  as  little  time  as  possible.  To  aid  the  estimation  process,  EST1000  was 
created. 

The  procedure  for  this  estimation  involves  use  of  the  logistic  response  function 
as  a cumulative  density  function  for  the  funding.  This  function  is  defined  as 

exp( p M 

p = i n\ 

1 + exp(0Q  + /31x) 

where  do  and  dj  are  constants  to  be  determined,  and  x represents  months.  It  has 
been  concluded  from  previous  ASD  acquisition  programs  that  this  function  best  repre- 
sents contract  performance  and  expenditures. 

The  distribution  expressed  in  equation  1 allows  the  simple  transformation 


p = In  (F / (1  - F))  (21 


and  hence, 


p = d0  + dxx-  (3> 


do  and  di  can  be  estimated  directly  by  means  of  regression  analysis  using  the  known 
portion  of  the  schedule-cost  profile  information.  In  EST1000,  the  user  is  allowed  to 
terminate  at  a percentile  less  than  100,  thus  allowing  some  shaping  of  the  new  funding 
schedule. 

A program  listing  of  EST1000  is  provided  in  Figure  2-3. 

As  an  example  of  the  use  of  EST1000,  assume  that  there  is  a 35-month  program 
which  overlaps  4 fiscal  years.  The  first  fi  months  of  the  program  are  in  the  first  fis- 
cal year  and  the  last  5 months  in  the  fourth  fiscal  year.  Further,  assume  that  the 
funding  for  the  program  was  to  be  fi,  12,  15,  and  3 million  dollars  for  the  4 fiscal 
years,  respectively. 
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Now,  let's  pose  the  question,  if  the  funding  for  the  third  fiscal  year  is  reduced 
from  15  to  11  million  dollars,  what  would  be  the  new  schedule /funding  profile  for  this 
program?  The  use  of  EST1000  to  determine  this  new  profile  is  exemplified  in 
Figure  2-4. 
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THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
mM  QOrY  FUftfcilSiiED  TO  BD,Q  _ 


PROG RAM  PURGNOW (INPUT , OUTPUT , TAPE 5= IN PUT , TAPE 6= OUT PUT  ,TAPE1 ) 

INTEGER  SUB 

ICY-1 

KK=1  I 

SUB=9H*ZQE839H* 

77  CALL  RETURN (5HTAPE1) 

ERR=0 . 

GO  TO (102, 103, 104, 105) , ICY 

102  CALL  PERMFIL(ERR , 5HPURGE , 5HTAPE1 ,SUB , 2HCY , 2 , 2HPW, 4HSAFE ) 

GO  TO  500 

103  CALL  PERMFIL (ERR , 5HPURGE , 5HTAPE1 , SUB , 2HCY , 3 » 2HPW , 4HSAFE) 

GO  TO  500 

104  CALL  PERMFIL ( ERR , 5HPURGE , 5HTAPE1 ,SUB , 2HCY , 4 , 2HPW, 4HSAFE ) 

GO  TO  500 

105  CALL  PERMFIL  ( ERR , 5HPURGE  , 5HTAPE1  ,SUB  ,'2HCY  , 5 > 2HPW , 4HSAFE ) 

500  IF( ICY . EQ . 4 . AND . KK .EQ . 2 ) SUB*9H#ZQE839C# 

IF(ICY.EQ.4.AND.KK.EQ.1)SUB=9H#ZQE839P* 

IF(ICY.EQ.4)KK=KK+1 

IF(ICY.EQ.4)ICY=0 

ICY=ICY+1 

IF(KK.LE.3)GO  TO  77 

STOP 

END 


Figure  2-2.  Program  Listing  oi  PUKGNOW 
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THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
FROM  COPY  FURNISHED  TO  DDC  — 


100  - 

ri5ii5i, -on  mo  i n(  input,  mirror . tapes  -input  . tail*  otupiii  > 

1 10= 

It  I Ml  MSI  OH  i:<20>  .121(240)  .(  10(240) 

1 20  = 

115  INI  1 00 

1 .10  = 

100 

11)15  MOM*  INTER  1 HI.  NIIMKI  15  Of  YEARS.  UJUNF  Off  5 MIRFIUN  01  0 YEAR 

MO- 

*AS  A Yl  At,'.*) 

150  = 

1:1  Alt*  ,N 

1*0= 

NMt-N-1 

1/0= 

fulfil  101 

1110- 

101 

lURHAM#  INFIR  rilE  YEARLY  COSTS . * ) 

ivo- 

r,'t  ali* . < r: < i ) . [ = i .N) 

200-= 

IK)  '.>00  I-1VN 

2 i <>=■ 

IMJ-.l  1 

220= 

200 

cm  u , r m l > i c < i > 

2.10  = 

on  AAt.=n<N) 

2*10  = 

PR  TNT  1 02 

103 

I URMA 1 ( ♦ ENVER  11  IE  MODIFIED  FUNDING  VALUE  (CUMULATIVE)  AND  AtlSOCIA 

2*0  = 

*FFIt  TIME.*) 

.VO* 

t<  i ■ ALf  'fr  t r f-  f j 

2110  = 

DIL=(.:<  J)-TF 

','90= 

DU  201  I=J»N 

500= 

201 

C< l )=C< I >-DEL 

31  0- 

PRINT  110 

320= 

1 10 

FORMA  1 < * ENTER  THE  NUMBER  OF  MONTHS  IN  THE  FIRST  AND  LAST  YEAR.*) 

330  = 

REAR*.  NFYM.  NI.YM 

340= 

I'M  ( 1 ) ~C  ( I ) /NFYM 

350= 

li  (NFYM.EQ.DGO  TO  500 

3*0= 

DO  210  I =2 .NFYM 

3/0  = 

I M 1 = I — 1 

-i<0  = 

? 1 0 

CM  < I ) =C  < I ) /NFYM+CM ( IM1 ) 

3V  • • * 

500 

NY  Y = NFYM -1.1 

40t,;  = 

N Y7.=  12*  ( NM.l  ~ 1 > 1NFYM 

410  = 

RZ  = 2 

A20~- 

KK=0 

4.50= 

DU  211  I.=NXY  . NYZ 

440® 

1 Ml =1-1 

4 50- 

m:mi=-kz-i 

4*0  = 

CM (I)-(C(KZ) -C ( KZM 1 ) > / 1 2 . t CM  < 1 M 1 ) 

470= 

M = K K 1 1 

480® 

II  (KU ,E0.12)KZ=KZ+1 

400  = 

21.1 

IT  < l.K  .10. 12)KK=0 

'-■00  = 

U1.--NYZ  1 1 

V I 0~ 

M3  NY/ INI  YM 

520= 

nSMl  = M!3-l 

5 10  = 

DO  212  1 =MK  » MS 

:-.40» 

I M 1 = I - 1 

l ' iO  - 

212 

r:n(  i >- < cc<n)-C(Nmi  > >/nlym)  »cm<  hid 

560= 

f 15  T M r 451 

!*  / 0 

431 

l"l,MAM*  FOR  a DISPLAY  OF  THE  MONTHLY  MODIFIED  COST  PROF  ILL  ENll.R 

*1.  UTIURIJISF  IN  ICR  2.*) 

SiVO« 

READ*.  IB 

*i;0  - 

Jl  ( JD.NF. 1 >00  TO  453 

/.  1 <>“ 

PRINT  IBtO 

o.»0~ 

1 0 1 ;) 

lORMAUt  MONTH  CUMULATIVE  COST.*) 

DO  1000  1=1. MS 

*40  = 

PRINT  1001  . I .CMC  I > 

*30  * 

loot 

1 t IRMA  1 ( * ♦ • IS. 1 15 . 5) 

A / ()  * 

1 Ooo 

l ONI  INI  IE 

A/0- 

43  1 

1 ONI  I NIJF 

*00= 

DO  >03  T = 1 . MSM  t 

690* 

LI  Ml I)~CH< I > 

Figure  2-3.  Program  Listing  of  EST1000  (Sheet  1 of  4) 
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i:m(  i > -cm<  i >/i  m<ms> 

202  CM<  1 ) -rtl  (Hi  C CM  < t )/(  1 . c:  M < t ) ) ) 
ccmims)  tutal 

SXX- 0 . 

S X Y ” 0 . 

SX  =0. 

sy-o. 

HU  203  Il» MSM  1 
S X ~ S X + 1 
SY=SYTCM<  I > 

SXY=SXY t I*CM< I ) 

207.  SXX  HXXH*I 

Hi  N h:>M  1 *SXY~8X*SY 
HI  H=  M‘>ht  *KXX-«X*SX 
Hl-HtN/FUD 
HO-<!.Y  Ut#';X>/MSMl 
PRINT  i 1 .1 

.111  I IIRMA  I ( * ENIER  rut:  I -IFcCENTILt:  WHICH  WILL.  HC  CONFIDED  100  7.  .*> 
RP' AD* f XXX 

no  20-1  1-1.240 

K ~l 

PN~EXP<  B0TB1*I ) 

N N/(  1 . PPN) 

II  ( P' . 0 f . XXX  ) 00  TO  205 
?>>1  CONTINUE 
205  PRINT  10.1.K 

10.1  FORMAT  ( * THE  NEW  NUMBER  OE  MONTHS  IS* >14) 

DU..O<  i (IT  Al  /MS ) * ( K-MS ) 

PRINT  1 04 f HELC 

104  FORMAT ( * THE  INCREASED  COST  IS*'E15.5> 

PRINT  1019 

1019  FORMAT  < * MONTH?  CUMULATIVE  7. , CUMULATIVE  COST?  MONTHLY  COST.*) 
GTOTAL  ■ TOTAL  + DELC 
LX  -<  J-:l  )*  12TNFYM 
PA=PXP<Bo+Bl*K) 

PA  IT- PA/ Cl  .PPA ) 

PN-"EXP(B0PB1*LX) 
p-PN/< 1 . +PN ) 

P-P/PART 
PT=T P/P 

DELCX-OTOT  AL-PT 

PP=P 

DD=0. 

DO  20 A I-lfK 
IP < I .or. LX) GO  TO  700 
P=CCM< I > /GTOTAL 
OH  -CCM<  C ) 

Efc-QO-BD 
HU  -CIO 
CM  < I )=EE 
GO  TO  701 

700  PN-!:xp(B0PBl*I) 

P--  F'N/<  1 . +PN  ) 

P-P/PART 

BEL  DLL  Dfc'I.CX*  < p— pp ) / ( 1 . -PP ) 

U0-P*IT  HiELDEL 
FI.  HO  -DD 
HD  00 

p-oo/n total 
cm<  i ) i r 

701  PRINT  105. r f P.nOfPE 
lo'f  1 OKMA  I ( * * f t 10.  IT  1 5.5) 

:■<)*  CUN  I (Nlll. 

IX/- 1 
K//-0 

CX/-NI  YMfl 


i 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
7B0M  OQRY  FURtilSHED  TODDC  -- 


i r<t>-0. 

t.i  '0  = III)  .MO  I I , NI-'YM 

into-  ;mo  c<  i > -c<  i > icm(  n 

t.l‘'0  = In)  240  I LX/.K 

1 400=  I > <KX/  . I II. 0)  I X/  rx/ll 

1410=  II  (NX/.  I II,  OHM  IX/)  -0. 

1 4110  = ('(  I \i>  t.'(  I X/  ) f CM < l > 

1 4.10-  KX/  K>  / f t 

1440  = 240  II-  (RX/.FU.  12IKX/  0 
l 450 ' GUM  0. 

144,0=  UK  I MT  II  A 

14/0  4 1 A FUKMAK*  I HE  YEARLY  GAIA.*) 

i4>io  uk  i n r in:!t 

14VO  18/1  FORMAT!*  YEAR.  YEARLY  CCIGI,  CUMULATIVE  CUGT.*) 

1500s*  L4L=<K~NFYM>/12 

1510=  KA=l.4L*12 

1 G/0=  IF  ( K A . Fiji . K ) L93=L 41 . + 1 

15.10=  II  (Krt.NF  < K > I 93=L.4L+2 

3 540=  DO  241  1=1. LV3 

• 550=-  SMM=SUMfC(l> 

1 5.‘i0  = UK  I NT  250.1  »C<  I > *SUM 

15 '0  250  FORMAT <*  * . 110 » 2E15 . 5 ) 

1580=  241  CONTINUE 
1 5 VO”  STOU 

lo(>0=C 

1 otO  i:  **##>I***ARRAYS##*#*#*# 

1 A 20=0 

I A. 10 -C  C<  20)  YEARLY  COSTS  THEN  CUMULATIVE  COSTS. 

I A40-=C 

1 -50=C  CM  C 240 1 CUMULATIVE  MONTHLY  COST  PROFILE.  ALSO  USED  IN  CALCULATI 

1 v-.0=C  ONS. 

1 470-=C 

1 A80=C  L'CM(240)  CUMULATIVE  MONTHLY  COST  PROFILE.  (YES.  LIKE  ARRAY  CM) 

1 A<JO=C 

l 700=1  **#***##ARRAYS######*# 

t /to -C 

I 720  -C  #*« »♦ MIVAR)  ABLES**#t#M# 

i7:io-=c 

1 740=  C M NUMBER  OF  YEARS. 

1750  -C 

17A0=C  NM1  NUMBER  OF  YEARS  MINUS  1, 

1770=0 

1 /IJO-C  I0TAL  TOTAL  COST  BEFORE  SCHEDULE  CHANGES. 

1 V90=C 

J uoo  -c  IF  MODIFIED  FUNDING  VALUE. 

I’ll  o=c 

M|/0=C  J YEAR  IN  LIHrCH  MODIFIED  FUNDING  VALUE  IS  APPLICABLE. 

tr)30=C 

1 840=C  DEL  CHANGE  IN  FUNDING  IN  THE  DESIGNATED  YEAR  J. 

1850=C 

|HA0=C  NFYM  NUMBER  OF  MONTHS  IN  I HE  FIRST  YEAR. 

1870=C 

lfluo-c  NLYM  NUMBER  OF  MONTHS  IN  THE  LAST  YEAR. 

I 890 =C 

1900=0  NX Y DESIGNATES  IHL  FIRST  MONTH  OF  THE  SECOND  YEAR. 

191 0=C 

1920=0  NY/  TOTAL  MONTHS  MINUS  I HE  MONTHS  IN  1 HE  LAAST  YEAR. 

1 VI0=C 

1940=0  MK  DESIGNATES  THE  FIRST  MONTH  OF  THE  LAST  YEAR. 

i yfit  -c 

IWJ’l;  MS  riFGlONATES  I AST  MONTH  III  LAST  YEAR, 

1 9/0  = 1. 

19H0=C  SXX  GUM  OF  IMF  X -SOU ARE D TERMS. 

1 990  "C 


Figure  2-3.  (Sheet  3 of  4) 
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7000  *C 

«ixr 

SOM  III 

J HI: 

X * i II  KM 

7010  =r: 

2 070-C 

sx 

SUM  01 

1 III. 

A 1 1 KMS . 

70  »<>■••  C 
7040  *11 

f>  Y 1 

SOM  OK 

7111 

Y 1 1 KMS  » 

.'u‘.d  i: 

joao-c  m si  m i in  nun  «i  <,k*  shion  i ini  f (ik-  ihf  iranbi  okmi-d  vaktadies. 

.’070-C 

*0!ii)-C  HO  INIHil.l  I • I III  IHI  REGRESSION  LINE  ill  [UK  I RANSH’IRMI'D  VARIABLES. 

7090--C 

7100-0  DEI  C INLKFAGI  D COM  . 

? 1 1 o =c: 

>i:*o*c  tnoi oi  niroi  com  rased  upon  mhh rr if:i.i  cost. 

? 1 V)  -r 

7140  C R mi  Ml  IJ  NUMBER  III  MONTHS  IN  ITU-  SCI  1C  MILE . 

:;i:iO=c 

71  AO  O'  I.X  NUMRF'  R OK  MONTHS  DI-FORE  CHANCE  IN  SCHIMIKI:  UK  CAME  I.KH  CFIVK. 

71 /0=C 

7100  C F-ART  FACTOR  FOR  RI-  1 1 KM  I NT  NO  FRACTION  OK  F HE  CI.IMIJI  A I'lVE 

7W0-C  DISIRIRUIION  01  10101  CO!. IS  USED. 

7700-C 

2'7tO“C  P FACTOR  FOR  HE  TERM  f N f NO  FRACIION  Of  COSTS  BEK  ORE  COST 

7720  -C  MOD IE ICA  r ION . 

?.MO=C 

:740=C  DFLCX  costs  ro  hk  allocated  after  costing  modification. 

7750-C 

7760-0  Hill  CM  VAR  I ADI  .ESI  F t MMt 

72/0-0 

7 ,10- C KKKK  I K I IDO  I OOPSR+  RE  KERR 

2290=C 

7700  C 200  CONVERTS  YEARLY  COSTS  TO  CUMULATIVE  YEARLY  COSTS. 

\<IO=C 

2770-C  201  CREATES  NEW  FUNDING  PROFILE. 

23.10-0 

2340---0  210  DEVEl.OPES  CUMULATIVE  MONTHLY  COSTS  DURING  THE  FIRS  I YEAR. 

2 150=C 

7 I/O  - C 211  DEVELOPES  CUMUI.AITVE  MONTHLY  COSTS  FOR  All.  Dill  IHF  F1RSI 

2370=C  AMD  I AST  YEARS. 

2SG0--C 

2T90-C  212  DEVELOPES  CUMULATIVE  MONTHLY  COSTS  FOR  LAST  YEAR. 

J400--C 

.•410=1'  1000  PRINTS  0U1  MODIFIED  MONTHLY  COS  I PROFILE. 

2470-C 

'■4  10-=r  202  STORES  CUMIII.ATIVf  MONTHLY  COSTS  IN  CCMI.I. 

7440 -C  K0K.T1S  A CUMULATIVE  DISTRIBUTION  IN  CM(.)  AFTER  VARIABLE 

7-IS0--C  I RANSK ORMA  I ION  . 

2460  C 

7 ’ /0-C  70S  CALCULATES  THE  SUM  OF  THE  X»  Yr  X*X.  AND  X*Y  TERMS. 

7400-C 

24>0=C  204  DEHRMlMKS  NEW  SCHEDULE  END  POINT. 

7 ,00- C 

7M0=C  206  CAL  CITI  A I K S AND  GUI  PUIS  NEW  COST  SCHEDULE. 

7S70--0 

7'  > It'  -C  7.10  CONVERTS  I ROM  MON  mi.  Y TO  YEARLY  VALUES  FUR  I HE  FIRM  YEAR. 

20 4 0-C 

7SS0-C  240  CON VI  R I S FROM  MONIIIIY  10  YKRIY  VALUES  FOR  ALL  YEARS  DOT  FIRST 

2 160=0 

71.  / 0-C  741  OUTPUTS  Yl  ARl.Y  COS  I DATA. 

2 SHO=C 

7V/0-C  H I IITII  DO  I UOPSM  I KK+KK 
7600  r. 


I 


IBIS  BASE  IS  BEST  QUALITY  PRACTICABLE 
HUM  OOW  FUR#ISHKD  TO  DDC  


ENTER 

THE  NUMbe.fi  01  YIARS.  COUNT  ANY  FOR  NON  01  A Y1  AR  AS  A 

Yt  AR . 4 

ENTER 

THE  YEARLY  COSTS. 6000000. . 12000000. r 15000000.  .3000000. 

enter 

THE  MODIFIED  FUNDING  VALUE  (CUMULATIVE)  AND  ASSOCIATED 

TIME. 29000000. .3 

ENTER 

THE  NUMBER  OF  MONTHS  IN  THE  FIRST  AND  LAST  YEAR. 6.5 

FOR  A 

DISPLAY  OF  THE  MONTHLY  MODIFIED  COST  PROFILE  ENTER  1. 

OTHERWISE  EN 

TER  2. 

1 

MONTH 

CUMULATIVE  COST. 

1 

. 1 0000EL07 

9 

3 

• 20000EL07 
. 30000ET07 

4 

. 40000EM07 

5 

. 50000EM07 

6 

. 60000E+07 

7 

. 70000E-L07 

Q 

. 80000E+07 

y 

. 90000E+07 

10 

. 1 OOOOE  LOO 

11 

. 11000E+08 

1? 

. 12000FM08 

13 

. 13000EL08 

14 

. 1 4 oooe+os 

1 5 

. 15000E (08 

16 

. 16000EL03 

3 7 

. 17000E+08 

10 

. 18000E+08 

19 

. 1BV17E+08 

:?o 

. 19033E+08 

21 

.20750F+08 

nn> 

. 21667E  f 08 

23 

. 22583E  L08 

:.“4 

. 235001  . + 08 

25 

.24417E+08 

26 

.2533 JE+08 

27 

• 26250EM08 

:>8 

. 27167E+08 

29 

. 28083E LOO 

30 

• 29000K  L08 

31 

. 29A00EL08 

32 

.30200E+08 

33 

. 30800E+08 

34 

. 3 1 400E  LOO 

35 

. 32000EE08 

ENTER 

THE  PERCENTILE  WHICH  WILL  BE  CONSIDER  100  % ..97 

Figure  2-4.  Example  of  Use  of  EST1000  (Sheet  1 of  2) 
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rms  pa oi  is  best  quality  practicable 

rawi  OOPY  FURNISHED  To  DDC 


f 


rill  NEW  NlltlKER  or  MOM  1 Mb  I 

S 37 

mi  iNCki.rtf 

>E»  cost  is 

. 20571E (0/ 

MONIH.  CUMULATIVE  7.,  f.'UMOl 

AT  l Of  C03T»  MUNI  III 

Y COST . 

l 

• 262 76E  -01 

. 100001(0/ 

. 1 0000+ 107 

9 

♦525S3E-01 

. 20000E+07 

. tOOOOE+O? 

3 

. 78829E  01 

. 30000E1 07 

, 10000E (07 

4 

.1051  IE +00 

. 40O0OE+07 

. 10000+1+07 

5 

. 1 3138 E +00 

.500001-1(0/ 

. tOOOOE+O? 

6 

. 15/66E+00 

.6000011(07 

. 100001:1(0/ 

7 

. 18 39 3 El  00 

.7000011+07 

. 10000E+07 

8 

.2102  IE  + 00 

.8000011  + 07 

. 10000E+07 

9 

• 23649E 1 00 

. 90000E+07 

. 10000+1+07 

10 

. 2627AE+00 

. 10000E+08 

. 10000E (07 

11 

.28904E+00 

. 1 1000E+08 

. 10000E +07 

12 

. 31532E+00 

.1200011+08 

. 10000E +07 

13 

.34  15911(00 

. 1300011+08 

. 1 0000E+07 

14 

. 36787E+00 

. 1 40001.(00 

. 10000E+07 

1 5 

. 3941 4E+00 

. 15000E+08 

. 1000011  (07 

16 

. 42042E+00 

. 16000E  + 08 

. 10000E+07 

17 

. 44670E+00 

. 17000E+08 

. 10000E+07 

18 

. 47297+1+00 

. 1800011+08 

.10000(1+07 

19 

. 49706E+00 

. 18917E+08 

. 91667E+06 

20 

. 521 15E+00 

. 19833E+08 

. 91 667E+06 

21 

• 54523E (00 

•20750E+08 

. 916A7E+06 

22 

• 56932E+00 

. 21667E+08 

.91667+1(06 

23 

. 59341E+00 

. 2258 3E +08 

.91667(1  + 06 

24 

. 61 749E+00 

• 23500E+08 

.9166711(06 

25 

. 641 58E+00 

.2441711  + 08 

. V166/E (06 

26 

. 66567E (00 

.2533311+08 

.91667+1+06 

27 

. 68975E+00 

. 26250+1+08 

• 91667E+06 

28 

. 713B4E (00 

. 27167E+08 

.91667E (06 

29 

. 73793K+00 

. 2008311+  08 

.91667+ (06 

30 

. 76201E+00 

. 29000E+08 

.91667+1+06 

31 

. 81292E+00 

. 30937+1 + 08 

. 19375E+07 

32 

. 85698+1(00 

. 32614E +08 

. 167691! +07 

33 

. 89498E+00 

. 34060E+08 

. 14460E+07 

34 

. 92764E+00 

. 3530.311  + 08 

.12429+1+07 

35 

. 95563+1(00 

. 36 3 69 E (08 

. 10654E +07 

36 

. 97957E+00 

. 3720011  (08 

.91 102E+06 

37 

. tOOOOE+Ol 

.38057+1(08 

. 77745E+06 

THE  YEARLY 

nATA. 

YEAR  > YEARI 

Y COST.  CIIMI.ll  AT I OE  COST. 

1 

.6000012(07 

.6000011(07 

o 

. 120001.(08 

. 1. 0000E+08 

3 

.11000E+08 

. 29000E 1 08 

4 

• 90571E+07 

.38057+1(08 

Figure  2-4.  (Sheet  2 of  2) 
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APPENDIX 

EAGLE  USER'S  GUIDE 


SIGN  ON  PROCEDURE 


COMPUTER  DESCRIPTION  OF  SUBROUTINE  GCS 


ASD  i OMPUTEH  CENTER  IN  Tk  HO  iM  4 S 
SYSTEM  CSA 

DATE  08  0 B 77  TIME  I 7 2C  4b 

PLEASE  .(K.lN 

LOGIN  A 7 70310  COST M 0.14  SUP 

COMMAND  EDITOH  

ATTACH  EAGLE  1 
PEN  IS 
EAGLET 

PF  CYCLE  NO  007 
EAGLET 


f-:.  A€mM,K 


I HE  f ill  LOWING  IS  APPt  ICAHl  i TO  T HI  MAIN  ROUTINE  ONLY  IF  IN 
RESPONSE  TO  AN  INTEGER  REQUEST  IOOOPIUSONE  OF  CERTAIN 
SPf  Clf  IE O STATE  MENT  NUMBE  MS  IS  INPUT  THEN  THE  USER  IS  SFNT 
DIRECTLY  TO  THAT  STATEMENT  NUMBER  THUS.  FOR  EXAMPLE.  A 
RESPONSE  OF  1088  WOULD  SEND  THE  USER  TO  STATEMENT  88  WHICH 
REOUESTS  THE  NUMBER  OF  YEARS  OF  INTEREST  THIS  IS 
APPLICABLE  FOR  THE  FOLLOWING  STATE  MENT  NUMBERS 

STATEMENT  NUMBER  REQUESTS 

88  YEARS  SPECIFICATION 

400  ROWS  SPECIFICATION 

401  INPUT  FILES 

402  ROW  MODIFICATION 

403  ELEMENT  MODIFICATION 

404  ROW  INSERTION 

40b  PRODUCTION  SCHEDULE 

406  HEADING  ARRAY  SPECIFICATION 
77  CALCULATIONS 

407  SPREADING  THE  DATA 

40ft  allowing  for  inflation 
677  output 

409  ARRAY  CHECK 

410  STORE  FILES 

411  TERMINATE 
425  COLUMN  INSERT 


USER’S  GUIDE 


DESCRIPTION  OF  ROUTINES 

CAl  INTERFACES  THE  VARIOUS  ROUTINES  WHICH  PERFOHM  THE  NUMERICAL  CALCULATIONS 

CAL2  CALCULATES  THE  COSTS  WHEN  SEVERAL  DIFFERENT  LEARNING  RATES  ARE  USED 

SPREAD  THIS  ROUTINE  SPREADS  THE  COSTS 

CALI  CALCULATES  COST  BASED  UPON  A SINGLE  FIRST  UNIT  COST  AND  LEARNING  G 

OUT  THIS  ROUTINE  OUTPUTS  THE  COST  OATA  WITH  ASSOCIATED  HEADINGS 

PRODUC  THIS  ROUTINE  ALLOWS  SPECIFICATION  OF  THE  PRODUCTION  SCHEDULE 

MAIN  THIS  ROUTINE  ALLOWS  THE  USER  T ) INTERFACE  AND  COORDINATE  THE  OTHf*  \*ES 

ESCALAT  THIS  ROUTINE  ALLOWS  THE  EFFECTS  OF  INFLATION  TO  BE  INCLUDEO  IN  THE  ANAi  , 

HARCON  THIS  ROUTINE  ALLOWS  THE  USER  TO  DESIGNATE  THE  COST  HEADINGS 

CAL3  -CALCULATES  A FRACTION  OF  PHFVlOUSLV  CALCULATED  ROW 

CAL4  ENABLES  THE  DIRECT  SPECIFICATION  OF  A SLT  OF  COSTS 

CAL5  ENABLES  AN  INTERFACE  WITH  THE  OTHER  ROUTINES  WHEN  A ROW  IS  THE  SUM  OF  SEV  L CAL 

NEWRA  CALCULATES  A NEW  FIRST  UNIT  COST  WHEN  THERE  IS  A CHANGE  IN  THE  LEAH’.  \G  RATE 

HELP  PROVIOES  ASSISTANCE  TO  USER  IN  DIFFICUL  TV  OR  ONE  SEEKING  A BETTFR  V ‘ RSTANDIN 

ADDL  ADDS  PREVIOUSLY  CALCULATED  ROWS  AND  MULTIPLIES  THEM  BY  A C<  >‘.STAr:  r 

FILES  ENABLES  THE  STORING  OR  OBTAINING  OF  ARRAYS  ON  FILES 

ROWMOD  ENABLES  THE  MODIFICATION  OF  A SINGLE  ROW 

DIVIDEL  ENABLES  THE  DIVISION  OF  ONE  ROW  BY  A SECOND  AND  FORMING  A NEW  ROW  USING  THE  OUOT 
ELEMENT  ENABLES  THE  CHANGING  OF  A SPECIFIC  ARRAY  ELEMENT 
RINSERT  ENABLES  THE  INSERTION  OF  A ROW  INTO  AN  ARRAY 

CUM  CONVERTS  (CUMULATIVE  COSTS  • LEARNING  RATE*  TO  'FIRST  UNIT  COST  « LEARNING  RATE 

APRINT  ENABLES  ARRAYS  TO  BE  OUTPUT 

GCS  ENABLES  RAPID  TRANSFER  FROM  ONE  LOCATION  IN  THE  MAIN  ROUTINE  FROM  1 LOC  TO  A 2ND 

INTEPR  ENABLES  AN  INTEGER  PRINTOUT  OF  THL  COST  ARRAY 

T1SL  ENABLES  THE  CALCULATION  OF  FIRST  UNIT  COST  AND  RATE  BASED  ON  2 GDP  COSTS 

CINS6RT  ENABLES  THE  INSERTION  OF  A COLUMN  IN  THL  COST  ARRAY 
NAMCHK  ASSURES  THAT  THE  INPUT  FOR  A FILE  NAME  IS  PERMISSIBLE 

TRANSTO  TRANSFERS  THE  HEADING.  COST  AND  PRODUCT  ION  SCHEDULE  ARRAYS  TO  Fll  ES 
TRANSFR  READS  THE  HEADING.  COST  AND  PRODUCTION  SCHEDULE  ARRAYS  FROM  FILES 
MULT  MULTIPLIES  ONE  ROW  BY  A SECOND  TO  F OHM  A NEW  ROW 


CALCULATING  INDICES 

EACH  COS T ELEMENT  IROWI  IS  CALCULATED  SEPARATE LY.  THERE  ARE  11  METHODS  OF  CALCULATION 
THESE  ARE  NOW  DESCRIBED  ALONG  WITH  THE  NUMBER  BY  WHICH  THEY  CAN  BE  REQUESTED 
Ml  UNIT  LEARNING  CURVF  SINGLE  LEARNING  RATE 
<2l  UNIT  LEAHNING  CURVE  . MULTIPLE  RATES 
«3l  A FRACTION  OF  A PREVIOUS  LINE 
14)  A SET  OF  CONSTANTS 

I5l  MULTlPl  F USE  OF  THE  OTHER  ME  THODS  OE  CALCULATION 

'6*  THE  ROW  HE  MAINS  UNC  MANGE  D FROM  THE  MOW  C AlCUL  A T E D IN  T HI  PREVIOUS  RUN 
171  SPECIFIED  MOWS  ARE  SUMME  D AND  MUITIPHE  D BY  A SPf  ClEIE  D CONSTANT 
18)  QUOTIENT  OF  ONE  ROW  DIVIDED  BY  ANOTHER 
»9l  CUMULATIVE  COSTS  PLUS  LEARNING  RATE 

!10>  2 PRODUCTION  LOTS  AND  ASSOCIATED  COSTS  ARE  SPf  Clf  IE  0 AND  A FIRST  UNIT  COST  AND 

ASSfJCIATED  I f AHNING  HATE  IS  CALCUlATf  D 
MU  PRODUCT  OF  ONE  MOW  MULTIPLIED  BY  ANOTM!  H 


lfi 


SAVING  OATA  FILES 

SAVING  MODIFIED 

DATA  FILE 

SAVING  FOR 

REMOTE  PRINTOUT 

E.T  APE4.S 

REQUEST. XX. *PF 

E.TAPE3.S 

REWIND.  I APE  4 

SAVE  ,X  X.N.Q 

REWIND. TAPE3 

SAVEP  F N.N 

CATALOG. XX.P  F N 

SAVE  ,P  F N.N 

STORE. P F N 

STORF.P  F N 

ID  A770310 

ID  A7/0310 

fin  the  above.  P F N represents  the  permanent  hie  name  chosen  by  the  user  ) 

If  the  user  wishes  to  ensure  that  the  file  is  not  automatically  destroyerilpurgedl 
after  a given  time,  then  the  command  sequence  should  read 

STORE.P  F N.RP  999 

or 

CATALOG. XX.P  F N.RP  999 

SENDING  OUTPUT  TO  REMOTE  SITE 

The  following  commands  will  cause  a file,  say  ZKH. 
to  be  printed  at  a remote  site 

ATTACH. XX.ZKH 

REWIND, XX 

COP  YSBF.  XX. OUTPUT 

ROUTE.OUTPUT.TIO  AD.  FIO  AA2.DC  PR 
In  the  above.  "AA2''  is  a label  that  permits  the  user  to 
better  identify  his  output  Any  set  of  characters,  up  to 
seven,  can  be  used  "AD"  is  the  location  specification, 
in  this  case.  Building  !7 


DATA  PILE  MOO 
AS  INPUT 

ATTACH. EAGLE! 
ATTACH.MOO 
EAGLE !. MOD 


MODIFYING  DATA  FILES 
ATTACH. ABC. DFN 
E.A8C.S 

LISTING  AND  DELETING  LINES 


L.A 

L.#(e.g  . L. 98401 
L.#..#,  leg..  L. 99 50. 10140 


O.fle  g . D.  7200» 

D.  P. , leg.  D.84 10.84501 


Meaning 

List  ail  of  the  file 
List  the  ime  num beied  9840 
List  the  lines  numbered  9950 
through  10140 

List  all  ‘ines  having  the  character 
set  "XVZ  Thr  ‘ rs  a delineator 
if  the  XY 2 character  set  contains 
such  a symbol,  then  the  use  of 
or  '&  -I  rKomwvliyl 
Delete  the  line  7200  *rom  the  • • 
Delete  Imes  8410  and  845C  and 
all  lines  m betwepn 


To  add  the  two  Imes 
1409 


CLEARING  LOCAL 
FILE 

Assume  that  filet  XX 
and  ABC  are  present 

FILES 

RE  TURN, XX.  ABC 


between  the  lines  450 and  7460  The 

7451  1409 
7452  1 


CHANGING  LINES 

/ABC/  /DEFG..8360.V 

This  is  a command  to  c hange  every  character  set  ABC  in  line  8i60  to 
Character  set  DEFCt>  with  verification  retium'd  The  computer  will 
now  display  the  new  line  8360  and  if  satisfactory  the  user  writ  respond 
“YES" 


PURG ING  "OFN"  FILE 

PURGE.A.OFN 


>/■  ARINC 
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